SetCoord Subroutine

public subroutine SetCoord(x, y, coord)

assign easting and northing coordinates

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: x

easting coordinate
real(kind=float), intent(in) :: y

northing coordinate
type(Coordinate), intent(inout) :: coord

Source Code

SUBROUTINE SetCoord &
!
(x, y, coord)


IMPLICIT NONE

!Arguments with intent(in):
REAL (KIND = float), INTENT (IN) :: x !!easting coordinate
REAL (KIND = float), INTENT (IN) :: y !!northing coordinate

!Arguments with intent(inout):
TYPE (Coordinate), INTENT(INOUT) :: coord
!------------end of declaration------------------------------------------------

coord % easting = x
coord % northing = y

END SUBROUTINE SetCoord